Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1418 1827 (N48W72 L=328)   769     53        1 (1398/1800-1442/1851)   0.0 W65-W87 N46-N49
      2 1537 1684 (N36W62 L=317)  1276    242        0 (1494/1611-1582/1734)  60.9 W57-W69 N30-N39
      3  662 1527 (N45E19 L=236)   839    265        3 ( 541/1499- 788/1556) -16.9 E31-E08 N40-N48
      4 1779 1467 (N16W71 L=326)   671     98        2 (1756/1437-1812/1512) -90.0 W67-W74 N13-N19
      5 1766 1362 (N11W62 L=317)   472     93        0 (1739/1321-1793/1406) -90.0 W59-W63 N08-N14
      6 1280 1290 (N18W21 L=276)  1144    396        0 (1102/1235-1443/1335) -31.0 W10-W30 N11-N23
      7  220 1141 (N24E61 L=195)  2106    221        3 ( 188/1054- 263/1232)  84.8 E65-E55 N18-N29
      8  371 1129 (N22E44 L=211)   269     87        0 ( 341/1117- 427/1150) -23.2 E46-E39 N20-N23
      9 1731 1007 (S08W47 L=302)   609    100        1 (1712/ 955-1754/1051)  51.3 W44-W49 S10-S05
     10  158  897 (N09E71 L=185)  1482    131        4 ( 132/ 832- 187/ 949)  66.8 E77-E65 N04-N11
     11  887  546 (S21E17 L=238)   232     96        0 ( 869/ 505- 903/ 588)  71.6 E18-E16 S23-S17
     12 1598  415 (S47W39 L=294)   653     75        1 (1563/ 390-1633/ 445) -12.5 W33-W43 S49-S44
     13  608  333 (S32E48 L=207)   666     89        2 ( 579/ 297- 634/ 382)  35.0 E53-E43 S35-S28
     14 1303  254 (S55W07 L=262)   512     68        1 (1275/ 231-1336/ 283)  39.8 W04-W10 S57-S51
  

    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