Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  870 1509 (N19E23 L= 27)   242     80        0 ( 832/1489- 910/1522)   0.0 E25-E19 N17-N19
      2 1450 1430 (N31W15 L= 65)   341     59        1 (1425/1408-1475/1451) -14.0 W13-W17 N29-N32
      3 1819 1022 (N19W54 L=104)  3058    438        7 (1752/ 898-1881/1183) -56.3 W46-W62 N11-N27
      4 1622 1136 (N19W33 L= 83)   240     46        0 (1596/1117-1651/1155)   0.0 W31-W36 N17-N19
      5  130 1026 (S26E73 L=337)   972     95        1 ( 108/ 974- 149/1065) -39.8 E78-E68 S28-S23
      6 1725  937 (N11W47 L= 96)   298     92        1 (1706/ 900-1752/ 969) -36.9 W44-W49 N09-N12
      7  252  914 (S30E53 L=357)   549    154        0 ( 202/ 878- 304/ 944)  17.1 E60-E47 S33-S27
      8 1692  603 (S08W58 L=107)   349     51        0 (1663/ 575-1713/ 627)  76.0 W56-W59 S10-S06
      9  493  543 (S49E26 L= 24)   296     41        1 ( 470/ 524- 514/ 567)   0.0 E28-E23 S50-S46
     10  828  502 (S41W04 L= 54)   260     62        1 ( 799/ 481- 864/ 526)   0.0 W01-W07 S41-S39
     11 1040  494 (S35W18 L= 68)   501     61        0 (1001/ 477-1089/ 518)  18.4 W15-W21 S36-S32
     12 1370  336 (S33W51 L=100)   560     96        1 (1323/ 310-1404/ 363)   5.7 W44-W54 S34-S30
     13  896  268 (S56W24 L= 73)   439     92        1 ( 855/ 236- 942/ 296)   0.0 W18-W30 S57-S54
     14 1159  160 (S53W61 L=110)   867     93        1 (1130/ 128-1191/ 198) -11.3 W52-W72 S54-S49
  

    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