Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1808 (N52W16 L=279)   425     41        0 (1132/1783-1169/1836)  63.4 W14-W18 N49-N55
      2 1204 1754 (N47W19 L=282)   888     95        2 (1156/1718-1261/1792) -12.5 W14-W24 N43-N50
      3 1586 1652 (N37W51 L=314)  1594    175        1 (1489/1630-1673/1673)   2.2 W40-W66 N35-N39
      4 1561 1441 (N22W39 L=302)  7727   1039       10 (1127/1169-1903/1617) -25.4 W09-W69 N05-N35
      5 1495 1344 (N16W32 L=295)   437    131        0 (1476/1288-1521/1404)  81.9 W30-W33 N12-N19
      6  774 1349 (N18E15 L=248)   660    140        2 ( 707/1302- 832/1403) -36.9 E19-E11 N14-N21
      7 1871 1313 (N14W69 L=331)   784    131        1 (1838/1283-1899/1346) -12.5 W64-W74 N12-N16
      8 1712 1250 (N10W48 L=311)   319     63        0 (1701/1213-1728/1284)  76.0 W46-W49 N07-N11
      9 1622 1250 (N10W40 L=303)   285     48        0 (1598/1227-1648/1277)  36.9 W38-W42 N08-N11
     10  363 1197 (N11E44 L=219)   278     54        0 ( 336/1173- 391/1218)  26.6 E46-E41 N09-N11
     11  925 1190 (N08E05 L=257)   212     56        0 ( 897/1163- 950/1215) -45.0 E07-E04 N05-N09
     12 1866  871 (S13W64 L=326)  2759    277        1 (1803/ 753-1931/1002)  60.6 W57-W72 S20-S04
     13 1573  795 (S18W36 L=299)   764    253        0 (1533/ 691-1638/ 903)  69.0 W33-W40 S24-S11
     14  373  770 (S15E46 L=217)   643    169        0 ( 297/ 745- 448/ 794)  -8.7 E52-E39 S16-S13
     15 1243  594 (S30W14 L=276)   236     72        0 (1214/ 564-1276/ 624)  36.9 W11-W16 S32-S28
     16 1739  522 (S36W63 L=325)  2420    273        0 (1632/ 473-1828/ 624)  29.1 W50-W72 S39-S28
     17 1447  467 (S40W32 L=295)   673    111        2 (1401/ 429-1489/ 507) -11.3 W27-W37 S42-S36
     18 1186  476 (S38W10 L=273)   278     38        2 (1167/ 450-1207/ 499) -76.0 W08-W11 S40-S36
     19 1091  441 (S41W03 L=266)   479     74        1 (1053/ 420-1131/ 469) -18.4 W00-W06 S42-S38
  

    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