Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1450 1676 (N47W10 L= 77)   389     47        0 (1421/1659-1481/1694)  11.3 W07-W12 N45-N48
      2 1505 1590 (N42W16 L= 83)   281     36        0 (1482/1574-1524/1607)  53.1 W14-W17 N40-N44
      3 1549 1553 (N41W20 L= 88)   697     78        0 (1510/1520-1594/1578)  53.1 W17-W24 N36-N44
      4  230 1462 (N01E72 L=355)   621     47        1 ( 209/1439- 259/1478)  -5.7 E77-E67 N00-N02
      5 1002 1429 (N15E12 L= 55)   246     96        0 ( 977/1383-1016/1469) -38.7 E14-E09 N12-N17
      6  938 1358 (N09E14 L= 54)   193     10        0 ( 917/1342- 958/1374)   0.0 E14-E12 N08-N10
      7 1623 1217 (N21W31 L= 98)   284     40        1 (1599/1188-1640/1241) -56.3 W29-W32 N19-N22
      8 1892 1137 (N26W60 L=127)  1383    222        0 (1860/1027-1911/1234) -67.4 W55-W63 N19-N31
      9  212 1136 (S18E60 L=  7)  1180    188        1 ( 154/1090- 289/1171)  14.0 E69-E52 S21-S15
     10 1251 1127 (N04W10 L= 77)   224     76        0 (1225/1102-1282/1167) -26.6 W07-W12 N03-N06
     11 1829 1114 (N22W52 L=119)   479     82        0 (1816/1073-1844/1164) -68.2 W49-W53 N19-N24
     12 1322 1057 (N03W16 L= 83)   330    106        1 (1277/1033-1364/1092)  45.0 W12-W17 N00-N05
     13  175  878 (S34E64 L=  3)   846     98        1 ( 131/ 850- 222/ 912)   0.0 E72-E57 S35-S32
  

    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