Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1080 1626 (N34W00 L=259)   284     37        0 (1058/1601-1108/1644)  56.3 E01-W02 N32-N35
      2 1570 1546 (N32W37 L=296)   442     95        0 (1558/1498-1582/1600)  63.4 W35-W40 N28-N36
      3 1667 1574 (N35W49 L=307)   434     52        0 (1644/1551-1698/1593)  15.9 W45-W52 N33-N36
      4  295 1484 (N22E58 L=201)   845     88        2 ( 271/1438- 329/1532) -66.8 E62-E54 N18-N25
      5  450 1335 (N12E39 L=220)   306    127        0 ( 409/1287- 501/1362)  33.7 E41-E35 N09-N13
      6  627 1274 (N09E26 L=233)   200     45        0 ( 603/1255- 661/1290)  26.6 E27-E23 N07-N09
      7  133  912 (S13E68 L=190)  1822    320        5 (  78/ 792- 198/1030) -49.1 E79-E61 S20-S05
      8 1544  598 (S27W39 L=298)  1587    277        4 (1456/ 490-1656/ 675)  53.1 W34-W46 S34-S21
      9 1345  575 (S30W25 L=284)   399    115        0 (1293/ 550-1392/ 617)  39.8 W21-W27 S31-S26
     10  674  569 (S34E23 L=236)   840    302        0 ( 539/ 480- 766/ 606) -19.4 E33-E16 S39-S31
     11 1660  521 (S30W54 L=312)   490    101        0 (1618/ 489-1704/ 562)  51.3 W50-W56 S32-S27
     12  469  520 (S38E42 L=217)   275     78        1 ( 439/ 497- 511/ 544)  20.6 E45-E37 S39-S36
     13 1608  328 (S44W66 L=325)  1014     86        2 (1570/ 298-1655/ 359)  -4.4 W57-W83 S44-S41
     14 1031  317 (S51W06 L=265)  1247    268        2 ( 887/ 291-1139/ 351)   2.5 E07-W16 S53-S48
  

    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