Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1339 1677 (N46W33 L=187)   394     44        2 (1313/1651-1364/1696) -90.0 W31-W36 N43-N47
      2  570 1415 (N30E32 L=122)   370    145        0 ( 545/1356- 588/1481) -58.0 E35-E29 N26-N34
      3  193 1358 (N26E74 L= 80)   941    149        2 ( 159/1300- 221/1426)  77.5 E77-E69 N21-N30
      4  889 1300 (N22E08 L=146)   820    264        2 ( 817/1240- 977/1340)  10.3 E12-E01 N18-N24
      5  446 1291 (N22E40 L=114)   396     92        2 ( 412/1257- 486/1330) -26.6 E43-E36 N20-N24
      6 1530 1274 (N17W36 L=190)   345     67        0 (1515/1235-1551/1308)  53.1 W34-W37 N14-N18
      7 1209 1164 (N12W12 L=166)   214    109        1 (1158/1127-1251/1193)  23.2 W08-W15 N10-N13
      8 1492  930 (S04W29 L=184)   820    275        2 (1374/ 862-1565/1008) -34.7 W21-W34 S08-N01
      9 1073  858 (S06W02 L=156)   522    209        0 ( 997/ 793-1126/ 895) -29.7 E02-W05 S10-S03
     10 1740  804 (S14W50 L=204)   660    156        1 (1711/ 750-1764/ 865)  66.8 W47-W52 S17-S10
     11 1818  802 (S15W59 L=213)   917    101        2 (1785/ 768-1853/ 839)  14.0 W54-W63 S17-S12
     12  964  789 (S10E05 L=149)   354    130        0 ( 938/ 732-1010/ 830)  50.2 E06-E01 S13-S07
     13 1297  786 (S12W16 L=170)   345     64        1 (1265/ 756-1324/ 814) -76.0 W14-W17 S13-S09
     14  237  750 (S12E61 L= 93)  1038    100        2 ( 207/ 707- 271/ 798) -80.5 E64-E57 S14-S08
     15  549  718 (S13E33 L=121)   766    179        3 ( 500/ 652- 603/ 796)  52.1 E37-E28 S17-S08
     16 1091  728 (S14W03 L=157)   339    158        1 (1018/ 713-1162/ 740) -14.0 E01-W07 S15-S13
     17 1180  679 (S18W09 L=163)   603    194        2 (1105/ 622-1251/ 736)  31.0 W03-W13 S21-S14
     18  337  587 (S22E56 L= 98)  1188    256        5 ( 297/ 497- 386/ 710)  41.6 E65-E46 S29-S13
     19 1509  623 (S24W32 L=186)  1436    282        3 (1413/ 519-1594/ 710)  47.5 W25-W38 S30-S18
     20  422  665 (S17E44 L=110)   383     76        2 ( 388/ 636- 454/ 688) -21.8 E46-E41 S18-S15
     21  581  504 (S28E35 L=119)   468    134        1 ( 563/ 437- 595/ 558)  60.9 E38-E32 S33-S24
     22  629  297 (S45E42 L=112)   482     34        1 ( 606/ 273- 650/ 315) -90.0 E45-E39 S47-S43
     23 1268  252 (S53W20 L=174)   392     36        1 (1243/ 235-1291/ 274)   0.0 W17-W22 S55-S50
     24 1368  214 (S59W37 L=191)  1686    128        3 (1322/ 169-1411/ 255) -21.0 W26-W65 S68-S53
  

    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