Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  999 1617 (N36W02 L=107)   530     89        2 ( 961/1583-1036/1650) -45.0 W00-W04 N33-N38
      2 1584 1591 (N31W48 L=152)  1241    178        1 (1506/1529-1654/1649) -48.4 W42-W52 N26-N35
      3 1399 1541 (N28W30 L=134)  1501    261        4 (1297/1459-1499/1630) -47.5 W23-W35 N22-N35
      4  650 1466 (N28E23 L= 82)   647    202        0 ( 593/1389- 735/1518)  37.9 E26-E17 N22-N30
      5 1102 1412 (N21W07 L=112)   244     86        2 (1060/1388-1137/1439)  21.8 W04-W09 N19-N22
      6  260 1360 (N24E56 L= 48)   917    108        3 ( 220/1310- 298/1408)  80.5 E61-E52 N20-N26
      7 1063 1340 (N17W04 L=109)   266    115        0 (1004/1320-1112/1365)   8.1 W00-W07 N15-N18
      8 1906 1152 (N02W68 L=173)   509     61        1 (1870/1134-1939/1164)   0.0 W62-W74 N01-N02
      9 1013  866 (S11E02 L=103)   328    119        1 ( 969/ 824-1054/ 917)  51.3 E04-W01 S13-S08
     10 1541  806 (S18W33 L=137)   338    101        0 (1522/ 757-1560/ 861)  71.6 W31-W33 S20-S14
     11 1026  661 (S24E02 L=103)   513    173        0 (1010/ 596-1064/ 733) -90.0 E03-W00 S28-S19
     12 1707  650 (S28W50 L=154)   328     36        0 (1689/ 628-1725/ 678)  71.6 W47-W51 S29-S26
     13 1796  607 (S31W63 L=168)  1217    115        1 (1752/ 559-1836/ 651)  40.6 W57-W67 S34-S28
     14  324  630 (S21E55 L= 50)   323     30        1 ( 304/ 612- 344/ 647)  21.8 E57-E52 S22-S20
     15 1724  519 (S37W58 L=163)   543     45        1 (1696/ 499-1749/ 540)  -7.1 W54-W62 S38-S35
     16 1526  478 (S39W37 L=142)   831    130        2 (1496/ 419-1549/ 532) -82.9 W33-W42 S43-S35
     17 1646  464 (S41W52 L=157)   518     44        1 (1623/ 436-1674/ 488) -38.7 W47-W55 S43-S39
     18  608  276 (S49E50 L= 55)   617     73        1 ( 575/ 255- 641/ 313) -15.9 E54-E45 S50-S45
     19 1375  252 (S58W34 L=138)   599     65        1 (1339/ 236-1410/ 271) -14.0 W27-W39 S60-S55
  

    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