Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1724 (N45W53 L=219)   530     64        1 (1424/1691-1470/1747)  45.0 W48-W57 N42-N46
      2  555 1680 (N55E41 L=126)   355     36        0 ( 538/1655- 572/1704) -63.4 E43-E38 N52-N57
      3 1367 1517 (N32W32 L=199)   296     52        1 (1343/1490-1393/1540) -90.0 W29-W33 N30-N33
      4  476 1351 (N31E37 L=130)  1576    316        3 ( 352/1318- 643/1398)   4.6 E48-E23 N28-N32
      5 1832 1353 (N14W69 L=236)   620    125        1 (1785/1315-1888/1379) -21.0 W62-W76 N10-N15
      6 1743 1342 (N15W57 L=224)   349     75        0 (1726/1306-1761/1375) -90.0 W55-W58 N12-N17
      7  175 1010 (N10E65 L=102)  2243    268        7 ( 141/ 919- 211/1122) -77.0 E70-E60 N04-N17
      8 1194 1006 (N03W10 L=177)   276    103        0 (1176/ 955-1216/1057)  59.0 W08-W11 N00-N05
      9  722  977 (N06E19 L=148)   423    122        0 ( 688/ 926- 745/1042) -74.1 E20-E17 N02-N09
     10 1385  868 (S08W21 L=188)   218     22        0 (1367/ 849-1402/ 892)  45.0 W19-W21 S09-S06
     11 1268  820 (S09W13 L=180)   227     93        0 (1248/ 776-1286/ 860)  68.2 W11-W13 S11-S06
     12  747  805 (S05E19 L=148)   209     38        0 ( 732/ 776- 764/ 834) -90.0 E20-E18 S06-S03
     13 1082  722 (S13W00 L=167)   206     82        0 (1057/ 690-1124/ 750) -63.4 W00-W02 S15-S11
     14 1080  577 (S23E01 L=166)   946    158        3 (1021/ 509-1132/ 645)  77.5 E05-W02 S27-S18
     15 1266  460 (S34W11 L=177)  3160    591        4 (1075/ 360-1422/ 633)  25.6 E02-W22 S40-S23
     16  548  595 (S17E37 L=130)   546     58        2 ( 518/ 564- 580/ 627) -63.4 E39-E34 S18-S14
     17  641  445 (S28E35 L=132)   597     87        0 ( 608/ 422- 688/ 479) -38.7 E37-E31 S29-S25
     18  476  375 (S32E55 L=112)   788    137        1 ( 456/ 318- 502/ 425)  31.0 E63-E48 S37-S28
     19 1509  314 (S52W38 L=205)   613     77        0 (1480/ 294-1552/ 329)   7.1 W33-W43 S53-S49
     20 1354  253 (S55W21 L=188)  1088    106        1 (1311/ 230-1413/ 283) -12.1 W15-W29 S57-S50
  

    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