Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1016 1544 (N37W16 L=339)   509    141        1 ( 953/1512-1078/1589)   4.8 W10-W22 N35-N37
      2 1310 1548 (N28W35 L=358)   305     82        0 (1267/1529-1354/1567) -15.9 W31-W38 N26-N28
      3  828 1511 (N40W02 L=325)   307     39        1 ( 805/1481- 849/1536)  56.3 W00-W03 N38-N41
      4  237 1284 (N41E57 L=266)   969    151        2 ( 171/1260- 313/1309)  -9.9 E69-E46 N38-N42
      5  781 1265 (N27E08 L=315)  1259    343        2 ( 623/1228- 929/1293) -24.0 E18-W00 N21-N30
      6 1821 1141 (S10W55 L= 18)   546     45        1 (1799/1115-1852/1171) -31.0 W52-W58 S11-S08
      7 1804 1066 (S14W51 L= 15)   631     98        1 (1773/1015-1836/1110)  26.6 W48-W55 S15-S11
      8  339  896 (N15E47 L=276)  3328    701        4 ( 236/ 660- 584/1048)  25.1 E58-E26 N02-N23
      9 1577  956 (S12W30 L=354)   712    142        1 (1541/ 892-1608/1022)  45.0 W26-W33 S14-S08
     10  718  909 (N08E20 L=303)   283    109        0 ( 675/ 872- 757/ 944) -63.4 E21-E18 N05-N11
     11 1333  737 (S17W10 L=333)   352     85        0 (1305/ 694-1363/ 776)  31.0 W07-W12 S19-S15
     12 1061  753 (S09E05 L=318)   249     66        0 (1041/ 721-1089/ 774)  71.6 E06-E03 S10-S07
     13 1128  735 (S12E02 L=321)   285     60        0 (1097/ 703-1154/ 760)  26.6 E04-W00 S12-S10
     14  354  603 (S02E56 L=267)   811    135        2 ( 315/ 557- 401/ 659) -63.4 E58-E52 S05-N01
     15 1290  535 (S29W02 L=325)   511    212        0 (1250/ 432-1325/ 613)  48.0 E03-W06 S34-S24
     16  753  410 (S22E35 L=288)  1171    214        3 ( 714/ 317- 801/ 482)  39.8 E42-E29 S27-S17
     17  451  379 (S18E61 L=262)  4129    434        8 ( 352/ 285- 517/ 456) -67.4 E74-E52 S25-S11
     18 1327  362 (S43E00 L=323)   370     49        1 (1302/ 334-1349/ 389)  68.2 E02-W01 S45-S40
     19  547  350 (S22E54 L=269)   420     75        0 ( 524/ 317- 568/ 373)  20.6 E59-E51 S23-S19
     20 1494  306 (S56W13 L=337)   471     50        0 (1469/ 287-1518/ 330)  -9.5 W10-W16 S59-S53
     21  750  172 (S40E57 L=267)   852     83        2 ( 736/ 128- 771/ 209)  24.0 E70-E50 S44-S36
  

    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