Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1474 1320 (N09W34 L=313)   847    261        0 (1363/1282-1581/1348) -14.9 W25-W40 N05-N11
      2 1094 1274 (N15W09 L=289)  1153    348        1 ( 919/1230-1266/1312) -14.0 E01-W19 N09-N17
      3 1163 1162 (N07W11 L=290)   203     99        0 (1136/1110-1196/1208)  38.7 W08-W13 N04-N09
      4 1775 1142 (S08W52 L=331)   338     61        1 (1756/1110-1791/1173) -76.0 W50-W52 S09-S05
      5  219 1037 (N19E55 L=224)  2494    699        8 (  76/ 978- 395/1092) -19.0 E71-E39 N12-N24
      6  605 1004 (N10E25 L=254)   445    130        1 ( 556/ 937- 657/1065) -66.0 E27-E22 N05-N14
      7 1859  983 (S19W56 L=336)   649    121        1 (1828/ 943-1882/1045)  39.8 W52-W60 S20-S15
      8 1424  913 (S12W21 L=300)   225     46        0 (1398/ 892-1448/ 931)  18.4 W19-W22 S13-S11
      9 1408  691 (S25W16 L=296)   856    198        2 (1343/ 600-1451/ 787)  51.3 W10-W20 S29-S19
     10  586  645 (S10E35 L=244)   414    104        2 ( 540/ 613- 624/ 678)  -9.5 E38-E32 S12-S07
     11  430  557 (S12E50 L=229)   422    116        1 ( 372/ 506- 467/ 607) -60.3 E53-E48 S15-S08
     12  645  568 (S16E34 L=245)   655    254        3 ( 549/ 546- 778/ 600) -23.2 E40-E25 S18-S12
     13 1246  376 (S43E02 L=278)   955    172        2 (1207/ 325-1297/ 441)  56.3 E06-W02 S47-S37
  

    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