Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  932 1653 (N37E09 L=259)  1541    299        2 ( 813/1577-1072/1727) -28.8 E19-W01 N31-N42
      2 1138 1486 (N25W06 L=274)   218     60        0 (1129/1448-1149/1527) -90.0 W05-W07 N22-N28
      3 1581 1366 (N19W37 L=304)   293     50        0 (1561/1340-1606/1389)  71.6 W35-W38 N17-N20
      4  800 1214 (N07E14 L=253)   355    100        0 ( 785/1158- 819/1265) -90.0 E15-E12 N03-N10
      5  373  955 (S08E43 L=224)   472     91        0 ( 334/ 923- 420/ 982)  23.2 E46-E39 S10-S06
      6 1694  806 (S14W47 L=314)   618    171        0 (1651/ 730-1712/ 861) -49.4 W42-W49 S18-S10
      7  390  781 (S19E43 L=224)  1168    297        3 ( 290/ 724- 496/ 849)  17.5 E53-E34 S22-S14
      8 1828  740 (S17W63 L=330)   444     73        0 (1816/ 705-1843/ 777)  90.0 W60-W64 S19-S14
      9 1131  704 (S23W08 L=275)   242     45        1 (1106/ 686-1159/ 726) -18.4 W06-W09 S24-S21
     10  384  665 (S26E47 L=221)   285     84        0 ( 373/ 617- 394/ 703)  56.3 E48-E44 S29-S23
     11 1706  661 (S23W52 L=319)   380     74        1 (1670/ 642-1736/ 685)  26.6 W48-W54 S24-S21
     12  814  621 (S29E13 L=254)   423    123        0 ( 789/ 562- 837/ 675) -90.0 E14-E11 S32-S25
     13  562  593 (S31E33 L=234)   259     36        0 ( 539/ 575- 591/ 610)  26.6 E34-E30 S32-S29
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y