Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  334 1607 (N11E69 L= 21)  1964    342        5 ( 293/1542- 375/1663) -42.0 E76-E62 N06-N15
      2  425 1566 (N10E56 L= 34)   706    113        1 ( 386/1540- 469/1598)  33.7 E60-E52 N07-N12
      3 1081 1439 (N18E09 L= 82)   677    215        1 (1060/1343-1103/1542) -63.4 E11-E04 N12-N24
      4 1451 1452 (N31W14 L=104)   479     77        1 (1425/1407-1478/1493) -51.3 W11-W15 N28-N33
      5 1275 1298 (N15W06 L= 97)   632    186        0 (1246/1212-1296/1387) -63.4 W02-W08 N10-N20
      6 1788 1085 (N20W47 L=137)   524    156        0 (1746/1043-1834/1106)  45.0 W43-W50 N16-N23
      7 1084 1015 (S05W03 L= 94)   317     63        0 (1060/ 978-1104/1059) -78.7 W02-W04 S07-S02
      8  515  925 (S25E28 L= 62)   941    176        0 ( 462/ 851- 565/1008)  74.7 E31-E25 S30-S19
      9 1767  895 (N09W50 L=140)   552    128        2 (1735/ 865-1807/ 931)  56.3 W47-W53 N06-N12
     10  316  795 (S38E43 L= 47)  1565    340        5 ( 225/ 746- 422/ 839)  22.8 E52-E33 S42-S33
     11 1800  751 (N03W59 L=150)  1247    377        1 (1696/ 718-1892/ 808)  29.1 W49-W68 S01-N09
     12  780  692 (S32E05 L= 85)   925    275        0 ( 706/ 600- 873/ 798)  72.6 E08-E02 S39-S23
     13 1135  700 (S21W16 L=106)   620    172        0 (1041/ 651-1204/ 763)  65.6 W12-W17 S26-S15
     14 1397  679 (S14W32 L=122)   276    115        1 (1358/ 654-1446/ 711)   0.0 W28-W35 S15-S13
     15 1777  647 (S03W63 L=153)   401     47        0 (1754/ 620-1800/ 670)  76.0 W61-W64 S05-S01
     16 1168  542 (S29W24 L=115)   274     80        0 (1122/ 526-1208/ 561)  45.0 W21-W26 S30-S26
     17 1640  487 (S16W59 L=149)   445     61        0 (1610/ 466-1673/ 507)  53.1 W56-W61 S17-S13
     18  573  471 (S54E16 L= 74)   318     40        0 ( 550/ 455- 604/ 488)   9.5 E18-E12 S54-S52
     19 1399  354 (S31W49 L=139)  1862    264        5 (1285/ 314-1503/ 392)  39.8 W42-W55 S36-S26
  

    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